COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		INTEGER Q(72),QZ(20)
C00003 ENDMK
C⊗;
	INTEGER Q(72),QZ(20)
	INTEGER CR, LF
	REAL QX(10)
	CR = "15
	LF = "12
CC	CALL IFILE(1,"MXX")
CC	READ (1,10)Q
1	ACCEPT 10,Q
	TYPE 21,(Q(K),K=1,72)
	ENCODE(100,20,QZ),Q
C ENCODE CONVERTS TO ASCII
	QZ(20) = QZ(20) - ("40*"400+"40*2) + CR*"400+LF*2
C	QZ(20) = CR*"400 + LF*2
	TYPE 200,QZ
	DECODE(100,30,QZ)QX
C DECODE CONVERTS ASCII TO F OR I
	TYPE 300,QX
10	FORMAT(72A1)
20	FORMAT(72A1)
21	FORMAT(1X72A1)
200	FORMAT(1X10A5)
30	FORMAT(2A5,8F)
300	FORMAT(1X2A5,10X8F)
	GO TO 1
	END